home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)te.d64 / change'8to9.proc < prev    next >
Text File  |  2009-01-03  |  215b  |  9 lines
  1. 9000 //
  2. 9010 PROC CHANGE'8TO9  // *** 0.14 ***
  3. 9020 OPEN FILE 15,"",UNIT 8,15,READ
  4. 9030 DIM S$ OF 10
  5. 9040 S$:="M-W"+CHR$(119)+CHR$(0)+CHR$(2)
  6. 9050 PRINT FILE 15: S$+")I",
  7. 9060 CLOSE FILE 15
  8. 9070 ENDPROC CHANGE'8TO9
  9.